home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 45 / Amiga Format CD45 (1999-09)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-11].iso / +system+ / tools / expert / libguide / myonlineupdate.rexx < prev    next >
OS/2 REXX Batch file  |  1999-01-25  |  3KB  |  49 lines
  1. /* Library Online Update Generating Script */
  2.  
  3.    Open("Lib","Ram:Lib-OnlineUpdate","R")
  4.    Open("HTML","Ram:Lib-OnlineUpdate.html","W")
  5.    writeln("HTML",'<html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">')
  6.    writeln("HTML",'<meta name="GENERATOR" content="Online Library Update Form Generator 1.0">')
  7.    writeln("HTML",'<title>LibGuide Update Form</title>')
  8.    writeln("HTML",'</head><body bgcolor="#FFFFFF"><p align="center"> </p><form method="POST" action="http://amigasystem.org/cgi-bin/LDDSearch.cgi"><p align="center"> </p><div align="center"><center><table border="0" cellpadding="4" cellspacing="0" width="80%" bgcolor="#ECECEC"><tr><td align="center" valign="top" colspan="2" bgcolor="#C0C0C0"><font size="4"><strong>Welcome to the Online LibGuide Update Form</strong></font><strong><br>')
  9.    writeln("HTML",'</strong>Please go online, select a server for download and push the Search-Button.</td></tr><tr><td align="right" width="50%">Please select an Aminet-Server:</td><td width="50%"><select name="server" size="1">')
  10.    writeln("HTML",'<option selected value="1">http: USA</option>')
  11.    writeln("HTML",'<option value="2">http: Germany</option>')
  12.    writeln("HTML",'<option value="3">http: UK</option>')
  13.    writeln("HTML",'<option value="4">http: Italy</option>')
  14.    writeln("HTML",'<option value="5">http: Sweden</option>')
  15.    writeln("HTML",'<option value="6">http: Australia</option>')
  16.    writeln("HTML",'<option value="7">ftp: USA</option>')
  17.    writeln("HTML",'<option value="8">ftp: Germany</option>')
  18.    writeln("HTML",'<option value="9">ftp: UK</option>')
  19.    writeln("HTML",'<option value="10">ftp: Italy</option>')
  20.    writeln("HTML",'<option value="11">ftp: Sweden</option>')
  21.    writeln("HTML",'<option value="12">ftp: Australia</option>')
  22.    writeln("HTML",'</select></td></tr><tr><td align="right" width="50%"> </td><td width="50%"><input type="submit" name="B1" value="Search"></td>')
  23.    writeln("HTML",'</tr></table></center></div>')
  24.  
  25.    i=0
  26.    Do While 1
  27.       zeile=readln("Lib")
  28.       If Eof("Lib") then leave
  29.       i=i+1
  30.       writeln("HTML",'<INPUT type="hidden" name="Lib'||i||'" value="'||zeile'">')
  31.    End
  32.    writeln("HTML",'<INPUT type="hidden" name="Anzahl" value="'||i'">')
  33.    writeln("HTML",'<INPUT type="hidden" name="mode" value="update">')
  34.    writeln("HTML",'<INPUT type="hidden" name="type" value="lib">')
  35.  
  36.    Open("lang","ENV:language","R")
  37.       language=readln("lang")
  38.    Close("lang")
  39.    If language="deutsch" then
  40.       writeln("HTML",'<INPUT type="hidden" name="lang" value="ger">')
  41.    else
  42.       writeln("HTML",'<INPUT type="hidden" name="lang" value="eng">')
  43.  
  44.    writeln("HTML",'</form><p>')
  45.    writeln("HTML",'<p align="center"><font size="2">LibGuide is © 1996-1998 by </font><a href="mailto:age@thepentagon.com"><font size="2">Heiko Schröder</font></a><font size="2"><br>LibSearch is © 1998 by </font><a href="mailto:gaspode@cyberjunkie.com"><font size="2">Peter Teich</font></a><font size="2">, </font><a href="mailto:documedia@leipzig-info.net"><font size="2">docu:media</font></a><font size="2"> made with Perl 5.004</font></p></body></html>')
  46.    Close("Lib")
  47.    Close("HTML")
  48. Exit
  49.